home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00065_EN 1984-87.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.2 KB  |  38 lines
  1. on mouseDown
  2.   global theArticle, whHead
  3.   set mv to the mouseV
  4.   set mh to the mouseH
  5.   put "68,127,447,163" into line 1 of bgArray
  6.   put "73,200,274,251" into line 2 of bgArray
  7.   put "339,290,565,322" into line 3 of bgArray
  8.   put "420,209,615,258" into line 4 of bgArray
  9.   set whHead to 0
  10.   repeat with n = 1 to 4
  11.     if (mh > item 1 of line n of bgArray) and (mh < item 3 of line n of bgArray) then
  12.       if (mv > item 2 of line n of bgArray) and (mv < item 4 of line n of bgArray) then
  13.         set whHead to n
  14.         spriteBox(43, value(item 1 of line whHead of bgArray), value(item 2 of line whHead of bgArray), value(item 3 of line whHead of bgArray), value(item 4 of line whHead of bgArray))
  15.         updateStage()
  16.       end if
  17.     end if
  18.   end repeat
  19.   clearLists()
  20.   if whHead = 1 then
  21.     set theArticle to "EN090101.asc>Zoo days numbered for polar bears>0"
  22.     winArticle()
  23.   end if
  24.   if whHead = 2 then
  25.     set theArticle to "EN040201.asc>How hormones beef up the fish>0"
  26.     winArticle()
  27.   end if
  28.   if whHead = 3 then
  29.     set theArticle to "EN060401.asc>The fight to save a giant>0"
  30.     winArticle()
  31.   end if
  32.   if whHead = 4 then
  33.     set theArticle to "EN040103.asc>Salmon farmers have other fish to fry>0"
  34.     winArticle()
  35.   end if
  36.   setOffStage("43")
  37. end
  38.